home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp1.arc / DOSCDUMP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-07-28  |  945 b   |  31 lines
  1. (*----------------------------------------------------------------------*)
  2. (*              Do_Screen_Dump --- write screen image to file           *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. OVERLAY PROCEDURE Do_Screen_Dump;
  6.  
  7. BEGIN (* Do_Screen_Dump *)
  8.  
  9.    Save_Screen( Saved_Screen );
  10.  
  11.    IF Screen_Dump_Name <> '' THEN
  12.       BEGIN
  13.          Write_Screen( Screen_Dump_Name );
  14.          Draw_Menu_Frame( 10, 10, 70, 13, Menu_Frame_Color,
  15.                           Menu_Text_Color, '' );
  16.          WRITE('Screen dump written to ',Screen_Dump_Name );
  17.       END
  18.    ELSE
  19.       BEGIN
  20.          Draw_Menu_Frame( 10, 10, 70, 13, Menu_Frame_Color,
  21.                           Menu_Text_Color, '' );
  22.          WRITE('No screen dump file defined, dump not done.');
  23.       END;
  24.  
  25.    DELAY( Two_Second_Delay );
  26.  
  27.    Restore_Screen( Saved_Screen );
  28.    Reset_Global_Colors;
  29.  
  30. END   (* Do_Screen_Dump *);
  31.